home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -serious- / comms / other / newscoaster / install_newscoaster < prev    next >
Text File  |  1999-09-06  |  3KB  |  85 lines
  1. ;
  2. ; $VER: Installer Script 1.0 for NewsCoaster v1.0 (c) Mark Harman (5.7.99)
  3. ;
  4.  
  5. (set #wrongOS  "NewsCoaster needs at least OS3.0 to run\n")
  6. (set #wrongMUI "NewsCoaster needs at least MUI3.8 to run\n")
  7. (set #wrongCPU "NewsCoaster needs at least a 68020 CPU to run\n")
  8. (set #icons_prompt "Which icons do you wish to install?\n")
  9. (set #NewsCoaster_dir (cat "Choose a folder to install NewsCoaster in - an\n"
  10.                            "extra drawer will be created. (If you wish to\n"
  11.                            "update NewsCoaster, please select the folder\n"
  12.                            "which contains the NewsCoaster folder.)\n"))
  13.  
  14. (set #done (cat "\nNewsCoaster has been succesfully installed.\n\n"))
  15.  
  16. (set OS_ver (getversion "exec.library" (resident)))
  17. (if (< OS_ver (* 39 65536)) (abort #wrongOS))
  18.  
  19. (set MUI_ver (getversion "MUI:libs/muimaster.library"))
  20. (if (AND (< MUI_ver (* 19 65536)) (<> MUI_ver 0)) (abort #wrongMUI))
  21.  
  22. (set cpu_type (database "cpu"))
  23. (if (< cpu_type "68020") (abort #wrongCPU))
  24.  
  25. (complete 0)
  26.  
  27. (set Icon_set
  28.         (askchoice
  29.                 (prompt #icons_prompt)
  30.                 (help @askoptions-help)
  31.                 (choices "Amiga 4 Colour" "NewIcons")
  32.                 (default 1)
  33.         )
  34. )
  35.  
  36. (complete 10)
  37.  
  38. (set NewsCoaster_def_dir @default-dest)
  39.  
  40. (set NewsCoaster_dir
  41.         (askdir
  42.                 (default NewsCoaster_def_dir)
  43.                 (prompt  #NewsCoaster_dir)
  44.                 (help    @askdir-help)
  45.         )
  46. )
  47.  
  48. (set NewsCoaster_dir (tackon NewsCoaster_dir "NewsCoaster"))
  49.  
  50. (complete 20)
  51.  
  52. (if (not (exists NewsCoaster_dir))
  53.         (makedir NewsCoaster_dir (infos))
  54. )
  55.  
  56. (copyfiles (source "NewsCoaster") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  57. (copyfiles (source "NewsCoaster.guide") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  58. (copyfiles (source "NewsCoaster.readme") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  59. (copyfiles (source "default.index") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  60.  
  61. (if (= Icon_set 0)
  62.         (copyfiles (source "Icons/NewsCoaster.info") (dest NewsCoaster_dir) (help @copyfiles-help))
  63. )
  64.  
  65. (if (= Icon_set 1)
  66.         (copyfiles (source "/NewsCoaster.info") (dest (tackon NewsCoaster_dir "/")) (help @copyfiles-help))
  67. )
  68.  
  69. (complete 60)
  70.  
  71. (copylib (prompt "MUI - BetterString.mcc") (source "MUI/BetterString.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  72. (copylib (prompt "MUI - BetterString.mcp") (source "MUI/BetterString.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  73. (copylib (prompt "MUI - NFloattext.mcc")   (source "MUI/NFloattext.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  74. (copylib (prompt "MUI - NList.mcc")        (source "MUI/NList.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  75. (copylib (prompt "MUI - NListview.mcc")    (source "MUI/NListview.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  76. (copylib (prompt "MUI - NListviews.mcp")   (source "MUI/NListviews.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  77. (copylib (prompt "MUI - TextEditor.mcc")   (source "MUI/TextEditor.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  78. (copylib (prompt "MUI - TextEditor.mcp")   (source "MUI/TextEditor.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  79.  
  80. (complete 100)
  81.  
  82. (message #done "\"" NewsCoaster_dir "\"")
  83.  
  84. (exit (QUIET))
  85.